home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_92_getPos(aPropertyList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  812 b   |  24 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   set vListPosition to the text of member "Checking Property getPos Input Field 1"
  5.   set vListPosition to stripSpaces(vListPosition)
  6.   set vListPosition to checkValue(vListPosition)
  7.   if vListPosition <> EMPTY then
  8.     if ilk(gDefaultPropList, #propList) then
  9.       if vListPosition starts "#" then
  10.         set vListPosition to value(vListPosition)
  11.       end if
  12.       set vGottenValue to getPos(gDefaultPropList, vListPosition)
  13.       case 1 of
  14.         symbolp(vGottenValue):
  15.           set vGottenValue to "#" & string(vGottenValue)
  16.         stringp(vGottenValue):
  17.         otherwise:
  18.           set vGottenValue to string(vGottenValue)
  19.       end case
  20.       set the text of member "Checking Property getPos Display Field 2" to vGottenValue
  21.     end if
  22.   end if
  23. end
  24.